// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .CS}

//-------------MAIN---------------
thread 'STP'
 

REPEAT 
WAIT 0
IF 0AAB: file_exists "CLEO\KEYS.INI"
THEN
    if and                                                                                    
    0AF0: 15@ "CLEO\KEYS.INI" "cj_stoper" "go_front"                                            
    0AF0: 16@ "CLEO\KEYS.INI" "cj_stoper" "go_back"               
    0AF0: 17@ "CLEO\KEYS.INI" "cj_stoper" "angle_left"            
    0AF0: 18@ "CLEO\KEYS.INI" "cj_stoper" "angle_right"           
    0AF0: 19@ "CLEO\KEYS.INI" "cj_stoper" "go_up"                 
    0AF0: 20@ "CLEO\KEYS.INI" "cj_stoper" "go_down"                                                                                                        
    then break                                                                                
    else                                                                                      
        0AF1: write_int 54 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "go_front"         
        0AF1: write_int 55 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "go_back"           
        0AF1: write_int 56 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "angle_left"
        0AF1: write_int 57 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "angle_right"
        0AF1: write_int 53 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "go_up"
        0AF1: write_int 52 to_ini_file "CLEO\KEYS.INI" "cj_stoper" "go_down"                                
    end                                                                                       
END 
UNTIL IF 0AAB: file_exists "CLEO\KEYS.INI" 

:STRPER_37E
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
jf @STRPER_37E 
if 
0ab0: 16@
jf @STRPER_3E8 
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 -6.0 -1.0 
actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Camera.Restore_WithJumpCut

:STRPER_3E8
if 
0ab0: 15@
jf @STRPER_426 
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 6.0 -1.0 
actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Camera.Restore_WithJumpCut

:STRPER_426
if 
  0ab0: 20@
jf @STRPER_506 
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -6.0 
actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Camera.Restore_WithJumpCut
jump @STRPER_37E 

:STRPER_506

if 
  0ab0: 19@
jf @STRPER_55C 
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 6.0 
actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
Camera.Restore_WithJumpCut
jump @STRPER_37E 

:STRPER_55C
if 
 0ab0: 18@
jf @STRPER_59F 
7@ = actor.Angle($PLAYER_ACTOR)
7@ += 2.1 
actor.Angle($PLAYER_ACTOR) = 7@
jump @STRPER_37E 

:STRPER_59F
if 
  0ab0: 17@
jf @STRPER_5DB 
7@ = actor.Angle($PLAYER_ACTOR)
7@ -= 2.1 
actor.Angle($PLAYER_ACTOR) = 7@

:STRPER_5DB
0819: 21@ = actor $PLAYER_ACTOR distance_from_ground 
if 
04B5:   21@ >= 9.0 // @ >= constant 
then actor.LockInCurrentPosition($PLAYER_ACTOR) = True
else actor.LockInCurrentPosition($PLAYER_ACTOR) = false
end

jf @STRPER_37E 
jump @STRPER_37E
